000000000 GGGGGGGGGGGG IIIIIIII1 NNN NNN 
LLL 000000000 GGGGGGGGGGGG III NNN NNN 
LLL 000000000 GGGGGGGGGGGG IIIT NNN NNN 
LLL 000 000 GGG II] NNN NNN 
LLL 000 000 GGG IIl NNN NNN 
LLL 000 GGG Il NNN NNN 
LLL 000 000 GGG Ill NNNNNN NNN 
LLL 000 000 GGG II] NNN NN 
LLL 000 000 GGG Ii] NNNNNN NNN 
LLL 000 000 GGG II] NN NNN NNN 
LLL 000 000 GGG II] NNN NNN NNN 
LLL 000 000 GGG III N 
LLL 000 000 GGG 66G6G6GGGG6G II] NNN NNNNNN 
LLL 000 000 GGG 666666666 Il NNN NNNNNN 
LLL 000 000 GGG 666666666 Il NNN NNNNNN 
LLL 000 000 GGG GGG II] NNN NNN 
LLL 000 000 GGG GGG II] NNN NNN 
LLL 000 000 GGG GGG II] NNN NNN 
LLLLLLLLLLLLLLL 000000000 GGGGGGGGG IIIIIIII NNN NNN 
LLLLLLLLLLLLLLL 000000000 GGGGGGGGG IIIIIIII1 NNN NNN 
LLLLLLLLLLLLLL 000000000 GGGGGGGGG IIIT NNN NNN 
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3; Find numeric day of week 


ORY ; Detailed Current Edit History 
ARATIONS 


DAY_OF_WEEK = 


16-SEP-1984 02:05:50 VAX/VMS Macro Vv04-00 


L 11 
LIBSDAY_OF _WEEK ; Find numeric day of « 16-SEP-1984 02:05:5 AX/VMS_™ v04-00 P 1 
vou~000 at eat S78Eb-1986 Of:40:03 LOGIN SACS TepavuKomaR;1 2% cj 


- TITLE b IBsO AY OF __WEEK ; Find numeric day of week 
-IDENT ‘v04-000' 


PARRA RARARAAARARAAAAASAAAAAALALASALELALELES ARSE E SESE EE ES ERR EERE REE ESE EERE ESE 


Sth lg! (c) 1978, 1980, 1982, 1984 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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Tv Zz 
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2a * 
-® * 
s@ ® 
*® te 
:* ie 
*® ® 
*® ® 
:® © 
** 0 
; RSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:* TRANSFERRED. . 
*® wt 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD * 
:@ ® 
** ® 
*® oe 
** ® 
** * 
*® ® 
*® * 


AND NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONS we 


IBILIT 
SOFTWARE ON EQUIPMENT WHICH 


FOR THE USE OR eo OF ITS 


LITY 
S NOT SUPPLIED BY DIGITAL 
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38 : fACILITY: Language-independent support Library 
000 tT ABSTRACT: 
000 
000 
000 -- 
000 
000 ; VERSION: 1 
000 
000 ; HISTORY: 
000 
838 ; AUTHOR: 
000 Herb Jacobs November 1981 
000 
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a ll finSiORv  e betaliga Current Edit History 'Scgepatone Siscasos PAREYNS RagrenvOre00, 2, Page a =} 
te -SBTTL HISTORY ; Detailed Current Edit History 
4G ; EDIT HISTORY: | 
48 : 1-001 - 
| 
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grNe day of wee TERESSISNE SFEQE:60 HASCYRESGBSCTaATGO a1 88° dy 


~SBTTL DECLARATIONS 


INCLUDE FILES: 


: EXTERNAL SYMBOLS: 
> MACROS: 


OOQOOCOOOOCOCOCOCO 
Oooo 
OOOCOCOOCOCOoOO 


oOOoQoQoooooooooooo 


: PSECT DECLARATIONS: 


0000 -PSECT _LIBSCODE PIC, SHR, LONG, EXE, NOWRT 


00000002 


MEW 0 OO NAW EWN O OONOUES WO 
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| 
> EQUATED SYMBOLS: 
offset = 7-5 3; make monday 1, tuesday 2, etc. 
| 
| 
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LIBSDAY_OF _WEEK ; i -SEP- :05: - 
net oe a meer C day of week 16=SEP 138% 96303330 a At Macro V04-00 Page ; 


j 

-SEP-1984 LOGIN. SRCJLIBDAYWK.MAR; 1 (4) | 

| 

~SBTTL LIBSDAY_OF_WEEK - 
| 

| 

| 
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: FUNCTIONAL DESCRIPTION: 

: This routine returns the numeric day of the week for an input time 
: value. If the input value is ommited, the current day of the week 
yer is, is returned. Monday is considered day 1, and Sunday day 
CALLING SEQUENCE: 
; ret = LIBSDAY_OF_WEEK ( time_64_bit_Q, output_day_L) 
INPUT PARAMETERS: 
; time_64_bit_Q - Address of a quadword representing time or 0 
; IMPLICIT INPUTS: 

; If time_64_bit_Q is 0, then the current system time is used. 
; OUTPUT PARAMETERS: 
; output_day_L = Address of a longword to recieve the day 
; IMPLICIT OUTPUTS: 

; NONE 

l 


SS$_NORMAL = success 


; COMPLETION CODES: 
SIDE EFFECTS: 
} 
| 
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SOOooooooooQoooooooooQooooooooQooooooQOOCOOOCOCOOOCOOOCOOOOOCOOOOOOOOO 
WRI 9 OO NAU EAN 9 ODNAUE WN SO OONOAUE WN 9 OONAUE WN OOONOAULSWR—OOO~N xz 
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Be Se Oe Se Se Be Se BH Se Se FH Se Se Be FH Se Se FH Se Be Se Se Se HGH Se BH Be He Se Be Be Se Be BH Se Se Se BH Se Oe Se Se Se Se Se Se Se Se SH Se Se OH Se SH Se Oe 


1 
1 
1 
1 
0 1 
0 1 
0 1 
0 1 
0 1 
0 1 
0 1 
0 1 
0 1 
0 1 NONE 
0 1 
0 1 ‘= 
0 1 sentry - 
0000 0 1 ibSday_of _week ,“M<> 
50 00000000'8F 00 0 1 mov #Lib$_invarg,r0 ; assume error 
6c 02 91 0 1 cmpb #2, (ap) ; are there at least 2 arguments 
3E 1A 0 1 bgtru 1008 ; branch if not : 
51 04 aC 00 0 1 movl 4(ap),r ; get address of guadword time 
OF 12 1 1 bneq 20$ ; branch if specifie 
ee: eee 1 1 movaq -(sp),ri 3 area to recieve time in, rl addr of area 
1 1 $gettim_s (ri§ ; get current time 
29 50 9 1 blbc r0,100$ 3; branch if error 
50 61 7D 126 208:  movq (r{),r0 i get the time 
51 50 50 23€34600 8F 768 1 ediv #60*10*1000*1000;r0,r0,r1 ; get the time in minutes ; 
3} 4 1 clrl rl : time in minutes from 1858 is only 32 bits 
51 50 50 Q00005A0 8F B 1 ediv #24*60,r0,r0.r1 ; time in days into_r0 
50 2 C0 1 addl foffset,rO ; account for_Nov 17, 1858 being a Wednesday 
4 1 clrl ri ; ogete only its 
51 50 29 7 B 1 ediv #7, 34 ri ; 0 number of weeks, rl day of week | 
08 ec 6551) s01sC1s 0044S addl\3 #1.rl,a8lap) : store the day number 
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LIBSDAY_OF WEEK ; Find numeric day of week 16-SEP-1984 02:05: AX/VMS Macro V04-00 P 
voe000 (ieSbay OF WEEK = orSEE=18ks Bf igesos LCBGINSsmeieGebarueemar;1 "29° (2 
50 01 49 = 134 mov l #1,r0 3; set success 
B? Se i 100$: ret : erie, clean stack if needed 
4D 1 $ .end | 
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D 12 
eee OF WEEK :; Find numeric day of week _ 


Symbol fable 8 oR be: :05: +39 pAazyes Macro V04-00 Page 6 


746:0 LOGIN. SRCJLIBDAYWK.MAR; 1 ( 


The working set Limit was 1050 pages. 

1876 bytes (4 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 4 non-local and 2 local symbols. 
137 source Lines were read in Pass 1, producing 14 object records in Pass 2. 

2 pages of virtual memory were used to define 2 macros. 


Sea nee BOE Meee ee ee Y 


LIBSDAY_OF WEEK 00000000 RG 4 
LIBS_ INVARG eeeere 1 
FF 0000002 
SYSSGETTIM peaneeet Gx 01 
beer ee eeeeeeeecoece $ 
! 3 Psect synopsis ! | 
PSECT name Allocation PSECT No. Attributes | 
_ 88080000 ( af 00 ¢ 0.) NOPIC USR CON ABS LCL ant NOEXE NORD NOWRT NOVEC BYTE 
LIBSCODE 000004D < Toe Git Ver PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG | 
pwc rawr o eer rn ewer esteem aa we 
! ; Performance indicators ! 
Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.08 00 100 100.38 
Command processing 107 00:00:00.41 00:00:02.7 
Pass 114 Se SE aS 00:00:02.84 
Symbol table sort 0 00:00:00.00 00:00:00.00 
Pass 2 40 4 SE 00:00:01.22 
Senet table output 2 00:00:00.01 00:00:00.01 
Psect synopsis output 1 00:00:00.01 00:00:00.01 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 295  00:00:01.14  00:00:07.35 


Macro library name Macros defined 


“BS 2gSDUACE: Lees. 08/3118. AB: MLB; 1 8 
mitts LIB.MLB; 1 

BET ais Eeyet By STARLET.MLB;2 2 
TOTALS (all Libraries) 2 


12 GETS were required to define 2 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:LIBDAYWK/OBJ=OBJ$:LIBDAYWK MSRC$:LIBDAYWK/UPDATE=(ENH$:LIBDAYWK) +EXECML$/LIB+LIB$:LOGIN/LIB 
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